#!/usr/bin/perl

=head1 NAME

Test cases fpr AFX::ASF

=cut

##############################################################################
# Globals
#
use lib 'lib';
use strict;
use warnings;

use Test;

## BEGIN block
BEGIN { plan tests => 3 }

## Load module
use AFX::ACF;
use AFX::ASF;

## Helpful notes.  All note-lines must start with a "#".
print "# Checking AFX::ASF version $AFX::ASF::VERSION\n";

## Open ACF
my $acf = new AFX::ACF;

## Set Site's identifier
my $site_id = $acf->open_sitefile();

## Open ASF
my $asf = new AFX::ASF( $acf, $site_id );

## Try to update ASF
ok(!$asf->update());

## Parse SMF
ok($asf->parse_smf());

## Show ASF Units details
ok($asf->show_units());
